<% If Request.Form="" Then %>

Primary Individual Membership Form .

name	age profession
email address	city country     contact blog / website
comment

<% Else 'receive the form values Dim sName, sEmail, sFeedback, sCity, sCountry, sAddress, sContact, sAge, sProfession sName=Request.Form("txtName") sAge=Request.Form("txtAge") sProfession=Request.Form("txtProfession") sEmail=Request.Form("txtEmail") sFeedback=Request.Form("txtFeedback") sCity=Request.Form("txtCity") sCountry=Request.Form("txtCountry") sAddress=Request.Form("txtAddress") sContact=Request.Form("txtContact") sBlogwebsite=Request.Form("txtBlogwebsite") ' create the HTML formatted email text Dim sEmailText, sNameText, sCityText, sCountryText, sAddressText, sContactText, sBlogwebsite, sAgeText, sProfessionText sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "Membership Information from: " & sName & "
" sEmailText = sEmailText & "Age : " & sAge & "
" sEmailText = sEmailText & "Profession :" & sProfession & "
" sEmailText = sEmailText & "Email Details : " & sEmail & "
" sEmailText = sEmailText & " City :" & sCity & "
" sEmailText = sEmailText & " Country : " & sCountry & "
" sEmailText = sEmailText & " Address :-" & sAddress & "
" sEmailText = sEmailText & " Contact :-" & sContact & "
" sEmailText = sEmailText & " Blog or Website Address : " & sBlogwebsite & "
" sEmailText = sEmailText & "Message:" & sFeedback & "
" sEmailText = sEmailText & "Date & Time:" & Now() & "
" sEmailText = sEmailText & "IP :" & Request.ServerVariables("REMOTE_ADDR") sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" 'create the mail object Set NewMailObj=Server.CreateObject("CDONTS.NewMail") NewMailObj.From="membership@silverinnings.com"'This is the email of the feedback sender NewMailObj.To = "membership@silverinnings.com" 'change to your address NewMailObj.Subject = "Feedback" NewMailObj.Body = sEmailText 'you need to add these 2 lines for the mail to be sent in HTML format 'remove them and the email will be sent in Text format NewMailObj.BodyFormat = 0 NewMailObj.MailFormat = 0 NewMailObj.Send Set NewMailObj=Nothing Response.write "" End If %>